home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / 16x_scrl.bas (.txt) next >
Atari STOS Basic  |  1987-04-21  |  7KB  |  71 lines
  1. 10 REM ~~~~~~~~~~~~~~~~~~~~~~~~~
  2. 100 FADE
  3. 110 SCROLL
  4. 120 REM 
  5. 130 REM ----> Routine to create preshifts of each character
  6. 140 REM 
  7. 150 DIM
  8. 160 REM 
  9. 170 REM ----> This is for a blank space
  10. 180 REM 
  11. 190 VARNAME
  12. 20 REM 
  13. 200 VARNAME
  14. 210 VARNAME
  15. 220 REM 
  16. 230 REM ----> This is for all the other characters
  17. 240 REM 
  18. 250 FOR
  19. 260 SPRITE
  20. 270 UPDATE
  21. 280 WAIT VBL
  22. 290 VARNAME
  23. 30 REM   FAST 16*16 SCROLLTEXT
  24. 300 SPRITE
  25. 310 UPDATE
  26. 320 WAIT VBL
  27. 330 VARNAME
  28. 340 SPRITE
  29. 350 UPDATE
  30. 360 WAIT VBL
  31. 370 VARNAME
  32. 380 NEXT
  33. 390 SPRITE
  34. 40 REM ROUTINE THAT USES SPRITES
  35. 400 AUTO BACK
  36. 410 REM 
  37. 420 REM ----> Get the sprite bank palette
  38. 430 REM 
  39. 440 LOKE
  40. 450 REM 
  41. 460 REM ----> This is the text
  42. 470 REM 
  43. 480 VARNAME
  44. 490 VARNAME
  45. 50 REM  ALL CODE BY BEN OF FRS!
  46. 500 VARNAME
  47. 510 VARNAME
  48. 520 REM 
  49. 530 REM ----> The scrolling and printing routine
  50. 540 REM 
  51. 550 LOGIC
  52. 560 FOR
  53. 570 VARNAME
  54. 580 IF
  55. 590 VARNAME
  56. 60 REM    WITH TEXT BY BENCH
  57. 600 IF
  58. 610 FOR
  59. 620 SCREEN$
  60. 630 SCREEN SWAP
  61. 640 DOKE
  62. 650 WAIT VBL
  63. 660 SCREEN COPY
  64. 670 CLS
  65. 680 NEXT
  66. 690 NEXT
  67. 70 REM 
  68. 700 GOTO
  69. 80 REM ~~~~~~~~~~~~~~~~~~~~~~~~~
  70. 90 REM 
  71.